﻿Namespace moteurTauxGaranti1
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public MustInherit Class simulationIndividuelle
        Inherits CalculAutonomeMoteur1

        Protected _nom As String
        Protected _chocMin As Double
        Protected _chocMax As Double
        Protected _pas As Double
        Protected _chocRadar As Double
        Protected _valeurRadar As Double

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub New(ByVal moteur As IIntegMoteur_MethodeEqTarif, _
                       ByVal nom As String, _
                       ByVal chocMin As Double, _
                       ByVal chocMax As Double, _
                       ByVal pas As Double, _
                       ByVal chocRadar As Double)
            MyBase.New(moteur)
            _nom = nom
            _chocMin = chocMin
            _chocMax = chocMax
            _pas = pas
            _chocRadar = chocRadar
            _resultats = New DataTable
            _resultats.Columns.Add(_nom, Type.GetType("System.Double"))
            _resultats.Columns.Add("S/P", Type.GetType("System.Double"))
        End Sub
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Overloads ReadOnly Property resultats() As DataTable
            Get
                Return _resultats
            End Get
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public ReadOnly Property chocRadar() As Double
            Get
                Return _chocRadar
            End Get
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public ReadOnly Property valeurRadar() As Double
            Get
                Return _valeurRadar
            End Get
        End Property
    End Class
End Namespace
